object MainFax: TMainFax
  Left = 283
  Top = 106
  Width = 467
  Height = 361
  BorderIcons = []
  Caption = 'TechFacts 95 Fax Utility'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 48
    Height = 13
    Caption = 'Station Id:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 48
    Width = 60
    Height = 13
    Caption = 'Fax Number:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 238
    Top = 48
    Width = 50
    Height = 13
    Caption = 'Dial Prefix:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 74
    Width = 58
    Height = 13
    Caption = 'Fax Header:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 221
    Top = 74
    Width = 63
    Height = 14
    AutoSize = False
    Caption = 'Com Port:'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 291
    Top = 74
    Width = 7
    Height = 15
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 93
    Top = 14
    Width = 177
    Height = 24
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = 'TechFacts 95'
  end
  object Edit2: TEdit
    Left = 93
    Top = 46
    Width = 137
    Height = 24
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Edit4: TEdit
    Left = 293
    Top = 46
    Width = 57
    Height = 24
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 16
    Top = 90
    Width = 343
    Height = 104
    TabOrder = 3
    object Label3: TLabel
      Left = 10
      Top = 75
      Width = 46
      Height = 13
      Caption = 'Message:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 10
      Top = 10
      Width = 26
      Height = 13
      Caption = 'From:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 10
      Top = 42
      Width = 16
      Height = 13
      Caption = 'To:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit3: TEdit
      Left = 62
      Top = 73
      Width = 265
      Height = 24
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = 'TechFacts 95 Fax Message'
    end
    object Edit6: TEdit
      Left = 62
      Top = 8
      Width = 137
      Height = 24
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit7: TEdit
      Left = 62
      Top = 40
      Width = 153
      Height = 24
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 18
    Top = 198
    Width = 341
    Height = 25
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Panel3: TPanel
    Left = 0
    Top = 301
    Width = 459
    Height = 33
    Align = alBottom
    TabOrder = 5
    object Panel4: TPanel
      Left = 266
      Top = 1
      Width = 192
      Height = 31
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object BitBtn2: TBitBtn
        Left = 8
        Top = 3
        Width = 82
        Height = 23
        Caption = '&Send Fax'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = BitBtn2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object BitBtn1: TBitBtn
        Left = 99
        Top = 3
        Width = 81
        Height = 23
        Caption = '&Cancel'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn1Click
        Kind = bkCancel
      end
    end
  end
  object ApdComPort1: TApdComPort
    ComNumber = 3
    InSize = 8192
    OutSize = 8192
    AutoOpen = False
    HWFlowOptions = [hwfUseRTS, hwfRequireCTS]
    BufferFull = 7372
    BufferResume = 819
    TraceName = 'c:\APD.TRC'
    LogName = 'APD.LOG'
    Left = 344
  end
  object ApdSendFax1: TApdSendFax
    FaxClass = fcUnknown
    ComPort = ApdComPort1
    StatusDisplay = ApdFaxStatus1
    FaxFile = 'd:\async\read.apf'
    StatusInterval = 327
    FaxFileExt = 'APF'
    OnFaxFinish = ApdSendFax1FaxFinish
    PhoneNumber = '260-7151'
    Left = 184
  end
  object ApdFaxStatus1: TApdFaxStatus
    Position = poScreenCenter
    Ctl3D = True
    Visible = False
    Fax = ApdSendFax1
    Left = 216
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'TXT'
    FileEditStyle = fsEdit
    Filter = 'Text Files|*.txt|Fax Files|*.apf'
    Title = 'InfoSpy TechFax File Selection'
    Left = 248
  end
  object FaxConverter: TApdFaxConverter
    FontFile = 'APFAX.FNT'
    FontType = ffStandard
    Left = 312
  end
  object ApdModem1: TApdModem
    ComPort = ApdComPort1
    InitCmd = 'ATZ^M'
    DialCmd = 'ATDT'
    DialTerm = '^M'
    DialCancel = '^M'
    HangupCmd = '+++~~~ATH0^M'
    ConfigCmd = 'ATE1Q0X1V1^M'
    AnswerCmd = 'ATA^M'
    OkMsg = 'OK'
    ConnectMsg = 'CONNECT'
    BusyMsg = 'BUSY'
    VoiceMsg = 'VOICE'
    NoCarrierMsg = 'NO CARRIER'
    NoDialToneMsg = 'NO DIALTONE'
    ErrorMsg = 'ERROR'
    RingMsg = 'RING'
    LockDTE = True
    Left = 280
  end
end